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SECtlON  1.  INTRODUCTION 


Furpose  of  the  Validation  Summary  Report 


iT  he  purpose  of  ^t-Ke^Va  l idat  i on  Summary  Report  (VSR)  is  to  identify  individual 
COBOL  language  elements  whose  implementation  does  not  conform  to  American 
Naticral  Standard  Programming  Language  COBOL*  X3. 23-1974*  and  to  Federal  Stan- 
dard COBOL  as  adopted  from  the  American  National  Standard  by  Federal  Information 
Processing  Standard  21-1  (FIPS  PUB  21—1).*  This  VSR  £©*  -ike  Texas  Ins-irum/ trf 

\ j "ter  — ^ , 

1.2  PreparationoftheVSR  ~ (.  c&-n  / e>-^  „ ^ 


The  Validation  Summary  Report  is  prepared  by  analyzing  the  results  of  running 
the  COBOL  Compiler  Validation  System  (CCVS).  The  COBOL  Compiler  Validation 
System  consists  of  audit  routines  containing  features  of  Federal  Standard  COBCL* 
their  related  data*  and  an  executive  routine  (VP-routine)  which  prepares  the 
audit  routines  for  compilation.  Each  audit  routine  is  a COBOL  prccram  which 
includes  many  tests  and  supporting  procedures  indicating  the  result  of  the 
tests. 


The  testing  of  a compiler  in  a particular  hardware/operating  system  environment 
is  accomplished  by  compiling  and  executino  each  audit  routine.  The  report  pro- 
duced by  each  routine  tells  whether  the-  compiler  passed  or  failed  the  tests  in 
the  routine.  If  the  compiler  rejects  some  languaoe  elements  by  terminating 
compilation*  giving  fatal  diagnostic  messages*  or  terminating  execution  abnor- 
mally* then  the  test  containing  the  code  the  compiler  was  unable  tc  process  is 
deleted  and  the  audit  routine  compilation  and  execution  repeated. 


The  compilation  listings  and  the  output  reports  of  the  audit  routines  con 
stitute  the  raw  data  from  which  the  members  of  the  Federal  COBOL  Compiler 
Testing  Service  produce  a Validation  Summary  Report. 


1.3  Organization  of  the  VSR 


The  Validation  Summary  Report  is  made  up  of  several  sections  the 
which  are  described  below. 


a.  Section  ? summarizes  the  results  of  the  compilation  and  execution 
of  the  programs  comprising  the  COBOL  Compiler  Validation  System.  Section  2 
is  subdivided  into  a subsection  representing  each  level  of  each  ircdule  defined 
in  American  National  Standard  Programming  Language  COBOL*  X3. 23-1974.  Each 
subsection  contains  a list  of  all  of  the  language  elements  which  must  be 
implemented  in  order  to  claim  support  of  that  leve l /modu le.  The  list  of 
language  elements  will  be  annotated  to  include  a description  of  both  syntax 
aiSd  semantic  errors  detected  during  the  validation. 


fc.  Section  3 - FIPS  PlIB  21-1  defines  four  Federal  levels  of  the  COBOL 
Standard.  Section  3.1  of  the  VSR  , lists  the  discrepancies  describee  in  Section  2 
by  the  Federal  level  in  which  the  problem  occurs.  Section  3.2  lists  discrepan- 
cies for  the  Report  Writer  Module*  which  is  not  a part  of  Federal  Standard 
COBOL. 


c.  Section  4 contains  information  which  describes  the  software  environ- 
ment in  which  the  compiler  was  tested.  This  includes  the  name  and  version  of 
the  operating  system;  the  implementor-names  which  were  used  in  the  Environment 
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Division  of  the  programs  comprising  the  CCVS;  the  options  used  with  the  com- 
piler; and  if  applicable#  information  regarding  the  use  of  compiler  optiniza 
tion  features. 


d.  Section  5 contains  the  results  of  the  ASCII  validation.  The  purpose 
of  these  tests  is  to  ascertain  whether  magnetic  tapes  written  in  ASCII  code  and 
with  ANSI  standard  labels#  and  card  decks  with  ASCII  code#  can  be  transported 
between  the  system  being  validated  and  a foreign  computer  system. 


e.  Appendix  A is  the  Validation  Summary  Working  Document#  a working 
paper  resulting  from  the  compilation  and  execution  of  the  CCVS#  ard  from  which 
the  VSR  is  derived. 


1.4  Abstract  Covering  Compliance  to  AN'S  COBOL 


Definition  of  an  Implementation  of  American  National  Standard  Programming 
Language  COBOL  (excerpts  from  X3. 23-1974#  Chapter  1#  Section  1.5). 


An  implementation  is  defined  to  meet  the  requirements  of  the  American 
Naticral  Standard  COBOL  specification  if  that  implementation  includes  a 
fully  implemented  specified  level  of  each  of  the  functional  processing 
nodules  and  of  the  Nucleus  as  defined  in  this  Standard.  It  follows  from 
this  that#  in  order  to  meet  the  requirements  of  this  Standard#  an  imple- 
mentation must: 


a.  Not  require  the  inclusion  of  substitute  or  additional  larguage  ele- 
ments in  the  source  program#  in  order  to  accomplish  any  part  of  the  function 
of  ary  of  the  standard  language  elements. 


b.  Accept  all  standard  language  elements  contained  in  a given  level 
of  a module  which  is  specified  as  being  included  in  the  implementation# 
except  as  specifically  exempted  (as  pertaining  to  specific  hardware  components 
for  which  support  is  not  claimed).  See  "Flements  that  Pertain  to  Specific 
Hardware  Components"  below. 


These  points  are  of  particular  pertinence  in  two  areas 


(1)  There  are  throughout  the  American  National  Standard  CCBOL 
specification  certain  language  elements  whose  syntax#  or  effect#  is  specified 
to  be#  in  part#  implementor-defined.  While  the  implementor  specifies  the 
constraints  on  that  portion  of  each  element’s  syntax  or  rules  that  is  indi- 
cated in  this  Standard  to  be  implementor-defined#  such  constraints  may  not 
include  any  requirement  for  the  inclusion  in  the  source  program  of  sub- 
stitute or  additional  language  elements. 


(2)  When  a function  is  provided  outside  the  source  program  that 
accomplishes  a function  specified  by  any  particular  standard  CORCL  element# 
then  the  implementation  must  not  require#  except  for  Fnvironment  Division 
elements#  the  specification  of  that  external  function  in  place  of  or  in 
addition  to  that  standard  language  element: 


The  following  qualifications  apply  to  the  American  National  Standard  COBOL 
specification: 


a.  There  are  certain  language  elements  which  pertain  to  specific  types 
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of  hardware  components.  In  order  for  an  implementation  to  meet  the  require- 
ments of  this  standards  the  implementor  must  specify  the  minimum  hardware 
configuration  required  for  that  implementation  and  the  hardware  components 
that  it  supports.  Furthers  when  support  is  thus  claimed  for  a specific  hard- 
ware components  all  standard  language  elements  that  pertain  to  that  component 
must  be  implemented  if  the  module  in  which  they  appear  is  included  in  the 
implementation.  Language  elements  that  pertain  to  specific  hardware  com- 
ponents for  which  support  is  not  claimeds  need  not  be  implemented.  However/ 
the  absence  of  such  elements  from  an  implementation  of  American  National 
Stanoard  COBOL  must  be  specified. 

b.  An  implementation  of  American  National  Standard  COBOL  may  include 
the  ENTER  statement  or  nots  at  the  option  of  the  implementor. 

c.  An  implementation  that  includess  in  addition  to  a specified  level  of 
each  of  the  functional  processing  modules  and  of  the  Nucleus*  elements  or 
functions  that  either  are  not  defined  in  the  American  National  Stardard  COBOL 
specification  or  are  defined  in  a given  level  of  a standard  module  not  other- 
wise included  in  the  implementations  meets  the  requirements  of  this  Standard. 
This  is  true  even  though  it  may  imply  the  extension  of  the  list  of  reserved 
words  by  the  implementors  and  prevent  proper  compilation  of  some  programs  that 
meet  the  requirements  of  this  Standard.  The  implementor  must  specify  any 
optional  language  (language  not  defined  in  a specified  level  but  defined  else- 
where in  the  Standard)  or  extensions  (language  elements  or  functions  not 
defined  in  this  Standard)  that  are  included  in  the  implementation. 

d.  In  oererals  the  American  National  Standard  COBOL  specification 
specifies  no  upper  limit  on  such  things  as  the  number  of  statements  in  a pre- 
grams  the  number  of  operands  permitted  in  certain  statementss  etc.  It  is 
recognized  that  these  limits  wilt  vary  from  one  implementation  cf  American 
National  Standard  COBOL  to  another  and  may  prevent  the  proper  compilation  of 
some  programs  that  meet  the  requirements  of  this  standard. 

IMPLEMENTOR-DEFINED  LANGUAGE  SPECIFICATIONS 

The  language  elements  in  the  following  lists  depend  on  implementor  defini- 
tions to  complete  the  specificaton  of  the  syntax  or  rules  for  the  elements. 

The  elements  whose  syntax  is  partly  imp l ement or-def ined  are: 

Element  Imp l ement or-Def i ned  Aspect 


SOURCE-COMPUTER  paragraph  computer-name 

OBJECT-COMPUTER  paragraph  comput er -nam e 

MEMORY  S I ? E clause  integer 

alphabet-name  implementor-name;  whether  imple- 

mentor-names are  provided. 

SPECIAL-NAMES  paragraph  i mp  l ement or -name 


ASSIGN  clause 


implementor -name 
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VALUE  CF  clause 


RERUN  clause 


CALL  and  CANCEL  statements 


imp  l ement or-name ; whether  implementor- 
names  are  provided. 

imp lementor-name  and  the  form;  the 
implementor  provides  at  least. one 
of  seven  specified  forms. 

relationship  between  operand  ar.d  the 
referenced  prooram. 


COPY  statement 


ENTER  statement 


Margin  H 


relationship  between  library-name 
text-name^  and  the  library. 

I anquaqe-name 

The  location. 


Area  B 


Qualification 


The  number  of  character  positions. 

The  number  of  Qualifiers;  at  least 
five  must  be  supported. 


The  elements  whose  effect  is  partly  implementor-defined  are: 


Element 


Implementor-Defined  Aspect 


a Iphabet-name 


implementor-name  switches 


The  correspondence  betweer  native  and 
foreign  character  sets. 

Whether  setting  can  change  during 
execution. 


USAGE  IS  COMPUTATIONAL 
clause 


Representation  and  whether  automatic 
alignment  occurs. 


USAGE  IS  INDEX  clause 


SYNCHRONIZED  clause 


ACCEPT  statement 


Representation  and  whether  automatic 
alignment  occurs. 

Whether  implicit  FILLER  positions  are 
generated;  their  effect  cr  the  size 
of  group  items  and  redefining  items, 

Maximum  size  of  one  transfer  of  data 
in  Level  1 Nucleus. 


DISPLAY  statement 


Maximum  size  of  one  transfer  of  data 
in  Level  1 Nucleus. 


Numeric  test 


Comparison  of  nonnumeric  items 


Representation  of  valid  sign  in  the 
absence  of  the  SIGN  IS  SEPARATE 
clause. 

Collating  seouences  where  NATIVE  or 
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• implementor-name  collating  sequence 

is  implicitly  or  explicitly 
speci f i ed. 

Arithmetic  expressions  Number  of  places  carried  fcr  inter- 

mediate results. 


Elements  That  Pertain  to  Specific  Hardware  Components 

The  standard  language  elements  in  the  list  that  follows  pertain  to  specific 
types  of  hardware  components.  These  language  elements  must  be  implemented 
in  an  implementation  of  American  National  Standard  COBOL  when  support  is 
claimed#  by  the  implementor#  for  the  specific  types  of  hardware  components  to 
which  they  pertain#  and  the  module  in  which  they  are  defined  is  ircluded  in 
that  implementation. 

Element  Hardware  Component 


CODE-  lause 

N t liLE  TAPE  clause 

CLOSE  ...  RE  EL /UNI T statement 


Device  capable  of  supporting  the 
specified  code . 

Ree  l 

Reel  or  mass  storage 


CLCSE 


OPEN. 


..NO  REWIND  statement 
.REVERSED  statement 


OPEN. ..NO  REWIND  statement 


Reel  or  mass  storage 

Reel  with  the  capability  of  making 
records  available  in  the  reversed 
order;  mass-storage  with  the  cap- 
ability of  making  records  avail- 
able in  the  reversed  order. 

Reel  or  mass  storage 


OPEN.. .1-0  statement 
(Sequential  1-0  only) 


kass  storage 


OPEN  EXTEND  statement 


Reel  or  mass  storage 


REWRITE  statement 

(Sequential  1-0  only) 


mass  storage 


SEND. . .BEFORE/ AFTER 
ADVANCING  statement 


Devices  capable  of  vertical  posi- 
tioning; devices  capable  of  action 
based  on  mnemonic-names. 


USE.. .1-0  (Sequential 
I — 0 only) 


Mass  storage 


WRITE  .. .BEFORE/AFTEP 
ADVANCING 


Devices  capable  of  vertical  posi- 
tioning; devices  capable  of  action 
based  on  mnemoni c -name  . 


8 


MW 
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1-5  The  Federal  COBOL  Standard 


The  COBOL  compiler  validation  results  enclosed  in  this  document  reflect  the 
degree  to  which  the  subject  COBOL  compiler  implements  the  Federal  COBOL 
Standard.  The  Federal  COBOL  Standard  is  essentially  the  same  as  the 
American  National  Standard  Programming  Languane  COBOL*  X3. 23-1974*  with  two 
exceptions : 


The  Federal  COBOL  Standard  defines  4 levels  and  the  ANSI 
Standard  defines  only  the  minimum  COBOL  implementation  and 
the  full  standard.  Low  and  High  levels  of  the  Federal 
COBOL  Standard  (see  1.5.1)  correspond  to  the  above  two  ANSI 
levels  (minus  the  Report  Writer  module).  Two  additional 
levels*  low -interm ediate  and  high- intermediate  have  been 
included  in  the  Federal  Standard  between  the  highest  and 
lowest  subsets.  These  additional  levels  accommodate 
hardware  which  cannot  support  the  full  standard*  but  which 
is  capable  of  implementing  more  than  the  minimum  standard. 


The  Federal  COBOL  Standard  states  that  the  Report  Writer  Module 
is  not  mandatory  in  any  Federal  level*  but  that  the  specifica- 
tions contained  in  X3. 23-1974  should  he  used  to  the  extent 
practical*  consistent  with  requirements. 


The  Federal  COBOL  Standard  requires  that  a compiler  contain  as  a minimum  the 
elements  specified  in  at  least  one  of  the  Federal  levels.  Nc  restrictions  are 
imposed  on  the  inclusion  of  selected  features  from  higher  levels  or  even  unique 
vendor  extensions.  Compatibility  amoung  various  implementations  cf  a given 
level  containing  additional  features  must  be  controlled  by  management  imposed 
standards  and  restrictions. 


1.5.1  Federal  Standard  COBOL  Levels 


a.  Federal  Standard  COBOL  specifications  are  the  language  specifications 
contained  in  American  National  Standard  Programming  Lanquaae  COBOL*  X3. 23-1974. 
For  purposes  of  the  Federal  Standard*  the  modules  defined  in  X3. 23-1974  are 
combined  into  four  levels.  dot  all  computers  are  laroe  enough  to  accommodate  a 
COBOL  compiler  containing  the  full  ANSI  Standard.  Therefore*  the  Federal 
Government  requires  that  all  compilers  acquired  by  its  agencies  contain  as  a 
minimum  one  of  the  four  Federal  levels*  depending  on  machine  size*  configuration 
and  user  needs.  The  knowledge  that  all  computers  will  support  at  least  one  of 
these  four  sutsets  simplifies  the  task  of  developing  machine-independent  COBOL 
programs . 


fc.  The  four  levels  cf  Federal  Standard  COBOL  are  identified  as:  Low* 
Low-Intermediate*  H i gh-I n t e rmed i a t e * and  High.  Each  Federal  Starcard  COBOL 
level  is  composed  of  either  the  high  or  low  levels  of  the  nucleus  and  ten  of 
the  eleven  Functional  Processing  Modules  (FP^s)  defined  in  X3. 23-1974. 

The  four  Federal  Standard  COBOL  levels  are  reflected  in  the  follcwirq  table. 
The  rumbers  in  the  table  refer  to  the  level  within  the  FPf*  or  nucleus  as 
designated  in  X3. 23-1974*  and  a dash  in  the  table  denotes  that  the  corres- 
ponding FPP  is  omitted. 


: vs 
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Low 

L eve  l 

Low 

Int  m r- 
med i a te 
level 

High 

Inter- 

mediate 

Level 

High 

Level 

NUCLEUS 

1 

1 

? 

2 

FPMs 

T ABLE  HANDLING 

1 

1 

2 

2 

SEQUENTIAL  1-0 

1 

1 

2 

2 

RELATIVE  I-C 

- 

1 

2 

2 

INDEXED  1-0 

- 

- 

- 

2 

SORT-ME  RGE 

- 

- 

1 

2 

REPORT  WRITER 

- 

- 

- 

- 

SEGMENTA  TION 

- 

1 

1 

2 

LIBRARY 

- 

1 

1 

2 

DEBUG 

- 

1 

2 

2 

INTER-PROGRAM 

COMMUNICATION 

- 

1 

2 

2 

COMMUNICATION 

2 

2 

1.5.2  Conformance  to  Federal  Standard  COBOL 

A compiler  implemented  in  conformance  to  Federal  Standard  COBOL  mLst  meet  at 
least  the  fcllowinq  requirements. 

a.  The  implementation  must  include  all  of  the  languaae  elements  of  at 
least  one  of  the  levels  of  Federal  Standard  COBOL. 

b.  The  implementation  must  meet  all  of  the  requirements  defined  in 
American  National  Standard  COBOL#  X3. 23-1974#  Section  I#  paragraph  1.5#  Defini- 
tion cf  An  Implementation  of  American  National  Standard  COBOL  which  is  pro- 
vided in  section  1.4  of  this  VSR. 

c.  The  implementation  must  provide  a facility  for  the  user  to  optionally 
specify  a level  of  Federal  Standard  COBOL  for  monitorina  his  source  program 
at  compile  time.  The  monitoring  will  be  an  analysis  of  the  syntax  used  in  a 
source  program  against  the  syntax  included  in  the  specified  level  of  Federal 
Standard  COBOL.  Any  syntax  used  in  the  source  program  that  does  ret  conform 
to  that  allowed-  by  the  user  selected  level  of  Federal  Standard  CCFCL  will  be 
diagnosed.  The  syntax  diagnosed  as  not  conforming  to  the  specified  level  will 
be  icentified  to  the  user  through  a diagnostic  messaqe  on  the  source  program 
listing.  The  diagnostic  message  will  contain#  at  least:  (1)  The  identification 
of  the  source  program  line  number  in  which  the  nonconforming  syntax  occurs# 

(2)  the  identification  of  the  level  of  Federal  Standard  COBOL  that  supports 
the  syntax  or  that  the  syntax  is  nonstandard  COBOL. 
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1.6.  Use  of  the  VSR 

The  Federal  COBOL  Compiler  Testing  Service  may  make  full  and  free  public 
disclosure  of  the  Validation  Summary  Report  (VSR)  in  accordance  with  the 
"Freedom  of  Information  Act"  (5  U.S.C.  #552).  The  results  of  the  validation 
are  only  for  the  purpose  of  satisfying  United  States  Government  requirements* 
and  apply  only  to  the  computer  system*  operating  system  release*  arc  compiler 
version  identified  in  the  VSR. 

The  COBOL  Compiler  Validation  System  is  used  to  determine*  insofar  as  is 
practical*  the  degree  to  which  the  subject  compiler  conforms  to  the  COBOL 
Standard.  Thus*  the  VSR  is  necessarily  discretionary  and  judgmental.  The 
United  States  Government  does  not  represent  or  warrant  that  the  statements* 
or  ary  one  of  them*  set  forth  in  the  VSR  are  accurate  or  complete.  The  VSR 
is  not  meant  to  be  used  for  the  purpose  of  publicizing  the  findings  summarized 
t herein. 

| 

1.7  Sources  of  Additional  Information 

FIPS  PUB  21-1  defines  the  Federal  COBOL  Language  Standard.  This  publication 
is  available  from  the  Office  of  ADP  Standards  Management*  National  Bureau  of 
Standards*  Washington*  D.  C.*  20234. 

The  detailed  COBOL  language  specifications  are  given  in  the  publication 
"American  National  Standard  Programming  Language  COBOL*  X3. 23-1^74*' * available 
from  the  American  National  Standards  Institute*  1430  Broadway*  New  York*  New 
York  10018. 

An  explanation  of  the  COBOL  Compiler  Validation  System  is  contained  in  the 
CCVS  User's  Guide.  This  document  explains  how  to  run  the  compiler  validation 
system.  The  User's  Guide  and  a magnetic  tape  containing  a copy  of  the  CCVS 
programs  are  available  from  the  ‘ational  Technical  Information  Service* 
Springfield*  Virginia*  22151.  (Ordering  information  can  be  obtaired  from 
the  Federal  COBOL  Compiler  Testing  Service.) 

1.8.  Requests  for  Interpretation 

Questions  regarding  this  VSR  or  the  CCVS  in  general  should  be  forwarded  to  the 
FCCTS.  If  any  problem  cannot  be  adeauately  resolved  through  the  FCCTS*  the 
request  for  interpretation  will  be  forwarded  to  the  Federal  COBOL  I r t e r p r et a t i on 
Committee  for  final  resolution. 

A brochure  describing  the  validation  process  including  the  procedures  for 
requesting  a validation  and  resolution  of  questions  involvina  interpretation 
of  the  current  Federal  Standard  is  available  from  the  Department  cf  the  Navy* 
Federal  COBOL  Compiler  Testing  Service*  Washington*  D.C.  20376. 

1.9  Modules  and  Language  Elements  Excluded  from  Testing 

Durirq  an  official  validation*  certain  CCVS  tests  may  not  be  used*  and  certain 
facilities  provided  by  the  subject  compiler  may  not  be  tested. 

1.9.1  Federal  Standard  COPOL  Approved  Interpretations 
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The  National  Bureau  of  Standards  published  in  the  Federal  Register  Vol.  41 
No.  179/  September  14/  19  76/  an  approved  interpretation  of  Federal  Standard 
COBOL  as  pertains  to  the  evaluation  of  arithmetic  expressions  in  the  COMPUTE 
statements.  This  interpretation  states  that  "size  of  the  intermeciate  result 
field  is  implementor-defined." 

Since  the  results  of  evaluating  arithmetic  expressions  are  not  preoictable/  all 
COMPLTE  statements  and  IF  statements  containing  arithmetic  expressions  have 
been  removed  from  the  COBOL  Compiler  Validation  System. 

1.9.2  Report  Writer  Module 

FIPS  PUB  21-1  excludes  the  Report  Writer  Module  from  the  Federal  CCROL  Standard. 
However/  the  Report  Writer  Module  is  still  tested  during  a validation  if  support 
for  that  module  is  claimed  by  the  compiler  vendor. 

1.9.3  Communication  Module 

Although  it  is  part  of  Federal  Standard  COBOL  as  defined  by  FIPS  PUB  21-1/  the 
Communication  Module  is  not  currently  tested  in  the  course  of  an  official  vali- 
dation for  two  specific  reasons.  First/  a large  volume  of  reauests  for  inter- 
pretation on  this  module  have  been  submitted  to  the  cognizant  ANSI  committee 
(X3J4)  for  resolution.  Secondly/  facilities  for  testing  were  insufficient  to 
determine  the  validity  of  the  Communication  fodule  test  programs  curing  the 
development  of  CCVS74. 

1.9. A Vendor  Omissions  or  Extensions 

Language  elements  are  not  tested  which  have  been  legitimately  omitted  from  the 
implementation  by  the  implementor  (refer  to  1.4).  Additionally/  re  implementor 
extensions  to  the  standard  COBOL  language  are  tested  in  any  way. 
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1.10  Timeliness  of  the  Validation  Summary  Reports 


The  timeliness  of  the  Validation  Summary  Report  is  important.  Compilers 
and  their  related  operating  system  software  are  modified  several  times  a year 
The  Compiler  Validation  System  used  to  validate  compilers  is  also  updated 
during  the  life  of  the  system.  Therefore  to  ensure  that  the  latest  version 
of  both  the  vendor's  compiler  and  the  Validation  System  are  the  latest  offici 
ally  released  versions*  check  with  the: 


Director 

Federal  COBOL  Compiler  Testing  Service 
Department  of  the  Navy 
Washington*  D.  C.  20376 
(202)  697-1247 


Please  use  the  Validation  Summary  Report  number  of  this  report  when 
corresponding  with  the  Testing  Service. 
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SECTION  2 


DETAILED  EVALUATION  OF  ERRORS 


This  section  summarizes  the  results  of  the  compilation  and  execution  of  the 
programs  comprising  the  COBOL  Compiler  Validation  System  (CCVS).  The  version 
of  the  CCVS  used  during  this  validation  is  shown  inside  the  front  cover  of  the 
VSR. 


Section  2 is  made  up  of  a variable  number  of  subsections.  The  nunter  of  sub- 
sections is  dependent  on  the  Level  of  Federal  COBOL  being  validated.  There  will 
be  a subsection  for  each  level  of  each  module  which  is  validated.  If  the  high 
level  of  a module  is  validated  then  there  will  be  two  subsections  for  that 
module;  one  for  the  low  level  and  one  for  the  high  level. 


A validation  of  the  tow  level  of  Federal  Standard  COBOL  would  result  in  three 
subsections  beinq  present.  One  for  Nucleus  level  1 * one  for  Seouertial  J-0 
level  1 * and  one  for  Table  Handling  level  1. 


Each  error  or  deviation  noted  in  this  section  makes  reference  to  a program  or 
functional  COBOL  module  contained  in  Appendix  A (Validation  Summary  working 
Document).  This  reference  provides  the  documented  results  of  an  occurrence 
of  e r ror s / dev  i at  a ions  detected  during  the  runnino  of  the  CCVS  usina  the  compiler 
within  the  environment  identified  within  this  document.  The  Valication  Summary 
Working  Document  is  presented  in  sequence  by  functional  module*  functional 
module  level  and  program  number  as  defined  below. 


Each  program  in  the  COBOL  Compiler  Validation  System  is  identifiec  by  a 5- 
character  program  name.  The  name  associates  the  routine  with  the  functional 
processing  module  and  level  of  American  National  Standard  Programming  Language 
C C BO  L tested  within  the  program. 


The  five  character  name  has  the  qeneral  format  XXNPM.  The  first  two 
characters  are  alphabetic  and  identify  the  functional  module  tested  by 
the  program.  The  permissable  values  are: 


Nuc leus 
Table  Hand l i ng 
Seauent  ia  l 1-0 
Relative  1-0 
Indexed  1-0 
Sort-Me  roe 
Report  Writer 
Seqmentat ion 
L ibrary 
Debug 

I nt er -P ro gr am  Communication 
C cmmun i cation 


The  third  character  of  the  audit  routine  name  is  either  a 1 or  2*  and 
identifies  the  level  of  the  functional  module  being  tested.  Each  module  and 
level  is  represented  by  several  programs.  The  fourth  and  fifth  characters  of 
the  program  name  are  sequence  numbers  for  programs  which  test  features  in  the 
same  level  cf  the  same  functional  processing  module. 


As  an  example*  the  program  name  NC210  is  the  tenth  program  in  the  series  of 
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routines  which  test  the  second  level  of  the  Nucleus  module. 


Description  of  Section  2. 


Each  error /deviat ion  is  noted  by  number  in  the  left  hand  margin  opposite 
the  language  element  in  question.  This  number  is  used  in  section  3 to 
categorize  errors  by  Federal  level  (See  1.5.1).  Inserted  directly  below 
the  language  element  is  a brief  description  of  the  error.  To  the  right  of 
the  langauqe  element  is  a page  reference  to  X3. 23-1974/  American  National 
Standard  Programming  Language  COBOL.  The  reference  at  the  end  of  the 
description  of  the  error  is  to  Appendix  A which  contains  the  detailed 
information  collected  during  the  validation.  The  reference  is  mace  up 
of  the  routine  name  followed  by  an  A or  B (A  for  compile  time  or  syntax 
error  and  B for  execution  time  or  semantic  error)  and  a number  which  makes 
the  error  unique  in  Appendix  A. 


* The  scaling  character  *P*  is  not  permitted  in  a 

* PICTURE  character-string. 


(NC101 .A. 2) 


2.2  Sequential  1-0  Level  1 


2.1. *5  represents  the  ninth  error  for  Nucleus  Level  1 

11-21  represents  the  page  in  X3. 23-1974  where  the  language 
element  is  defined 

* Boxes  the  description  of  the  error/deviation 

NC101.A.2  represents: 

Prooram  name  - NC101 

Syntax  error  - A 
second  error  - 2 


16 


CCVS74-VSR245 

2.1  NUCLEUS  LEVEL  1 


Languaoe  Concepts  1-75 

Characters  used  for  words  1-76 

Of  If  . . • f 9 
A f B f . . . f 7 
- (hyphen  or  minus) 

Characters  used  for  punctuation  ........  1-65 


" quotation  mark 
( left  parenthesis 
) right  parenthesis 
. period 
space 

= equal  sign 

Characters  used  in  editing.  ..........  1-5 8 

B space 
0 zero 

♦ plus 
minus 

CR  credit 
OR  debit 

Z zero  suppress 

* check  protect 
S currency  sign 
/ comma 

. period 
/ stroke 


Separators 1-75 

The  separators/  semicolon  and  comma#  are  not 

allowed  ..................  1 1 — 1 

Character-st rings  .........  1-76 

COBOL  words 1-76 

hot  more  than  3C  characters 

L'ser-defined  words.  . . . . . . . . . . . . 1-76 

data-name 


Vust  beoin  with  an  alphabetic  character  II-1 

fust  be  unique;  may  not  be  qualified.  . II-1 

l eve l -number 
mnemonic-name 
paragraph-name 
program-name 
routine-name 
se  ct  ion-name 


System-names 1-78 

comput  er -n  ame 
imp l emen tor-name 
language-name 

Reserved  words.  1-79 

Key  words 
Opt ional  words 

Eiqurative  constants 1-80 

ZERO 

SPACE 

HIGH-VALUE 

LOW-VALUE 
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QUOTE 

Special-character  words  ..  1-80 

Literals.  1-20 


Nonnumeric  literals  have  lengths  from  1 
through  120  characters 

Numeric  literals  have  lengths  from  1 through 


18  digits 

PICTURE  character-strings  ..........  1-22 

Comment-entries  1-22 

Reference  Format.  ......  1-105 

Sequence  number  ................  1-105 

Area  A I -1C  5 

Division  header  ...............  1-106 

Section  header.  ...  .....  1-106 

Paragraph  header 1-107 

Data  Division  entries  ............  1-107 

Area  B I-1C5 

Paragraphs 1-107 

Data  Division  entries 1-107 

Continuation  of  lines  .............  I-1C6 

Only  nonnumeric  literals  may  be  continued  . . 1 1 — 1 

Comment  lines  I-1C8 

Asterisk  (*)  comment  lines 
Stroke  (/)  comment  line 

Identification  Division  .............  1-9 A 

The  PROGRAM-ID  paragraph.  1 1 — 3 

The  AUTHOR  paragraph.  .............  II-2 

The  INSTALLATION  paragraph.  1 1 — 2 

The  DATE-WRITTEN  paragraph 1 1 -2 

The  SECURITY  paragraph 1 1 - 2 

Environment  Division.  ..............  1-95 

The  SOURCE-C OMPU TF R paragraph 1 1 -5 

computer-name 

The  OBJECT-COMPUTER  paragraph  II-6 

computer-name 
MEMORY  SIZE  clause 
PROGRAM  COLLATING  SEQUENCE  clause 
The  SPECIAL-NAMES  paragraph 1 1 -8 


implementor-name  IS  mnerron i c -name 
implementoi — name  IS  mnemonic-name  series 
ON  STATUS 
OFF  STATUS 

alphabet-name  clause 
CURRENCY  SIGN  clause 
DECIMAL-POINT  clause 


Data  Division  ........  1-97 

Work ing-Storaqe  Section  ......  11-11 

The  data  description  entry.  ..........  11-12 

The  BLANK  WHEN  ZERO  clause 11-14 

The  data-name  or  FILLER  clause.  ........  11-15 


The  JUSTIFIED  clause  (may  be  abbreviated  JUST).  11-16 
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2.1 


m 


Level-number.  11-17 

01  through  10  (level  numbers  must  be  2 digits)  11-13 

77 . II-11 

The  PICTURE  clause  (may  be  abbreviated  PIC)  . . 11-18 

Character-string  may  contain  30  characters.  . 11-18 

Data  characters:  AX9. ..........  11-18 

Operational  symbols:  S V P 11-21 

Fixed  insertion  characters II-21 

0 (may  be  used  only  in  edited  items) 

B (may  be  used  only  in  edited  items) 


$ (currency  sign) 

♦ and  - 
DB  and  CR 
/ 

Replacement  or  floating  characters 11-21 

S (currency  sign) 

+ and  - 
2 

* 


Currency  sign  substitution 11-21 

Decimal  point  substitution 11-21 

The  REDEFINES  clause  (may  not  be  nested).  ...  11-27 

The  SIGN  clause  ..........  11-31 

The  SYNCHRONIZED  clause  (may  be  abbreviated  SYNC)  11-33 

The  USAGE  clause 11-35 

COMPUTATIONAL  (may  be  abbreviated  COMP) 

DISPLAY 

The  VALUE  clause 11-36 

literal 


Procedure  Division 1-99 

Conditional  expressions  . 11-41 

Simple  condition 11-41 

Relation  condition 11-41 


Relational  operators 
[NOT  ] GREATER  THAN 
[NOT]  LFSS  THAN 
[NOT]  EQUAL  TO 


Comparison  of  numeric  operands.  .....  11-42 

Comparison  of  nonnumeric  operands  (oper- 
ands must  be  of  equal  size)  .....  11-42 

Class  condition  ..............  11-43 

NOT  option 

Switch-status  condition  ....  . 11-44 

The  arithmetic  statements  11-51 

Arithmetic  operands  limited  to  18  digits 

Overlapping  operands.  ...  11-51 

The  ACCEPT  statement  (only  one  transfer  of  data)  11-53 
The  ADD  statement  . . . . . . . . . . . . . . . 11-55 


•The  addition  of  signed  numeric  data  items  with  and  without  the 
•SEPARATE  clause  did  not  give  the  correct  results.  (NC118  R) 
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i dent i f i er / l it er a l series 
TO  i dent i f i e r 
GIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 

The  ALTER  statement  (only  one  procedure -name ) . . 
The  DISPLAY  statement  (only  one  transfer  of  data) 
The  DIVIDE  statement  .............. 


11  — 57 
11-59 
11-61 


♦The  division  of  two  signed  numeric  data  items  did  not 
♦ give  the  correct  result  to  a signed  numeric  data  item 


♦containina  a SEPARATE  clause. 


(NC117  B) 


INTO  i dent i f i e r 
BY  i dent i f ie r / l i t e r a l 
GIVING  identifier 
ROUNfiED  phrase 
SIZE  ERROR  phrase 

The  ENTER  statement  , 

The  FXIT  statement  ............... 

The  GO  TO  statement  (procedure-name  is  required) 
DEPENDING  ON  phrase 

The  IF  statement  (statements  must  be  imperative) 
ELSE  phrase 

The  INSPFCT  statement  (only  single  character 

dat  a item) 

TA  LL  t I NG  ph  r as  e 
ALL 

LEADING 
CHARACTERS 
REPLACING  phrase 
ALL 

LEADING 

FIRST 

CHARACTERS 

TALLYING  and  REPLACING  phrases 

The  MOVE  statement  

TO  identifier 


1 1-63 
11-64 
11-65 

11-66 


11-68 


11-74 


* A group  level  MOVE  of  alphanumeric  data  items  containing  the 
♦fiqurative  constants  ZERO*  QUOTE*  and  SPACE  did  not  execute 

♦ correctly.  (N C 1C 3 B) 

♦The  MOVE  of  a signed  numeric  data  item  with  a SEPARATE  clause 
♦to  an  a Iphanuaeri c edited  data  item  containing  the  B and  / 

♦ editing  symbols  did  not  execute  correctly.  ( N C 1 1 4 B) 

♦The  MOVE  of  a signed  numeric  data  item  with  a SEPARATE  clause 
♦to  a signed  numeric  data  item  without  a SEPARATE  clause  did 
♦not  execute  correctly.  (NC116  HI) 

♦The  MOVE  of  a siqned  numeric  data  item  without  a SEPARATE  clause 
♦to  a siqned  numeric  data  item  with  a SEPARATE  clause  did  rot 
♦execute  correctly.  (NC116  B2) 
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♦The  MOVE  of  a signed  numeric  data  item  with  a SEPARATE  clause  to 
♦an  alphanumeric  data  item  caused  the  sign  to  be  moved.  (NC116  B3) 


identifier  series 

The  MULTIPLY  statement  11-77 


♦The  multiplication  of  a siqned  numeric  data  item  and  a sicned 
♦numeric  edited  data  item  did  not  give  the  correct  result  tc  a 


♦signed  numeric  data  item.  (NC120  B) 


BY  identifier 
RIVING  ident if  ier 
ROUNDED  phrase 
SIZE  ERROR  phrase 

The  PERFORM  statement 11-78 

procedure-name 
THRU  phrase 
TIMES  phrase 

The  STOP  statement 11-85 

literal 

RUN 

The  SUBTRACT  statement  11-89 

2.1.9  

♦The  subtraction  of  siqned  numeric  data  items  from  the  figurative 
♦constant  ZERO  did  not  give  the  correct  result  to  a siqned 
♦numeric  data  item  with  a SEPARATF  clause.  (NC119  B) 


i dent i f i er / l i t er a l series 
FROM  identifier 
RIVING  identifier 
ROUNDED  phrase 
SIZE  ERROR  phrase 
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2.2  TABLE  HANDLING  LEVEL  1 


Languane  Concepts 

Usei — defined  words 1-76 

index -name 

Subscripting  - 3 levels  . ......  1-89 

2.2.1  


* A l L subscripted  references  to  a two  dimensional  table  containing 
♦numeric  COMPUTATIONAL  items  and  to  a three  dimensional  table 
♦containing  signed  numeric  items  did  not  give  the  correct  results. 


* (TH109  B) 


Indexing  - 3 levels . . . . . . 1-89 

Data  Division 

The  OCCURS  clause II 1-2 

integer  TIMES 

INDEXED  BY  index-name  series 

The  USAGE  IS  INDEX  clause III-5 

Procedure  Division 

Relation  conditions  III-6 

Comparisons  involving  index-names  and/or 
index  data  items 

Overlapping  operands 1II-6 

The  SET  statement III-11 

index -name /i de nt i fi e r series 
index-name 

UP  BY  i den t i f i e r / i nt eger 
DOWN  BY  iden t i f i e r / i nt ege r 

2.2.2  


♦The  use  of  positive  siqned  numeric  literals  to  initialize  the 
♦increment  value  of  the  SET  UP  BY  identifier  and  SET  DOWN  PY 
♦ identifier-  statement  failed  to  give  the  correct  results.  (TH111  B) 


index-name  series 
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Language  Concepts 

User-defined  words  1-76 

f i le-name 
re  cord-name 

I-C  status I V - 1 

Environment  Division 

The  FILE-CONTROL  paragraph  IV-4 

The  file  control  entry  ................  IV-4 

SELECT  clause 


ASSIGN  TO  implementor-name  clause 
ORGANIZATION  IS  SEQUENTIAL  clause 
ACCFSS  MODE  IS  SEQUENTIAL  clause 
FILE  STATUS  clause 

The  I-O-CONTROL  paraoraph.  ..............  IV-6 

RF RUN  clause 

2.3.1  

♦Unable  to  force  RERUN  due  to  lack  of  system  checkpoint 
♦capability.  (SG113  P) 


SAFE  AREA  clause 
SAME  AREA  series 


Data  Division 

File  Section  IV-9 

The  file  description  entry  ..............  IV-10 

The  record  description  entry IV-9 

The  BLOCK  CONTAINS  clause IV-11 

integer  CHARACTERS 
integer  RECORDS 

The  CODE-SET  clause IV-12 

2.3.2  

♦The  ASCII  (STANDARD-1)  character  code  set  was  not  processed 
♦correctly  for  a punched  card  file.  (SQ119  B»  SQ1 20  B) 


♦A  punched  card  file  created  using  the  ASCII  (STANDARD-1)  character 
♦code  set  could  not  be  processed  correctly  as  ASCII  code  or  a 
♦foreign  computer  system.  (SQ118  P) 


The  DATA  RECORDS  clause IV-13 

data-name 
data-name  series 

The  LABEL  RECORDS  clause  IV-14 

standard 

OMITTED 

The  RECORD  CONTAINS  clause  IV-18 

integer-1  TO  integer-2  CHARACTERS 

The  VALUE  OF  clause IV-19 

implementor-name  IS  literal 


imp l ement or -name  IS  literal  series 
Procedure  Division 

The  CLOSE  statement  (only  a single  file-name  may  appear 
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in  a CLOSE  statement).  .............  IV-20 

REEL 

UNIT 

The  OPEN  statement  (only  a single  file-name  may  appear 

in  an  OPEN  statement).  .............  IV-24 

INPUT 

OUTPUT 

I-C 

The  READ  statement  ..................  IV-28 

INTO  i dent i f i e r 
AT  END  phrase 

The  REWRITE  statement.  IV-31 

FROM  identifier 

The  USE  statement IV-32 

EXCEPT  ION/FRROR  PROCEDURE 
ON  file-name 
ON  INPUT 
ON  OUTPUT 
ON  1-0 

The  WRITE  statement IV-34 

FROM  identifier 
BEFORE/AFTER  integer  LINES 
Bp  FORE  / AFTER  PAGE 


► t 


: 1 


I* 


« jf , YW1  — 
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2. A PELATIVF  1-0  LEVEL  1 


Language  Concepts 

User-defined  words 1-76 

f i le- name 
record-name 

1-0  status V-2 

Environment  Division 

The  FILE-CONTROL  paragraph.  .............  V-5 

The  file  control  entry V-5 

SFLECT  clause 


ASSIGN  TO  imp  l ement  or -name  clause 
ORGANIZATION  IS  RELATIVE  clause 
ACCESS  MODE  clause 
SEQUENTIAL 
RANDOM 

FILE  STATUS  clause 

The  I-O-CONTROL  paragraph V- 7 

RERUN  clause 

2.4.1  

★Unable  to  force  RERUN  due  to  lack  of  system  checkpoint 
★capability.  * ( RLl 09  B) 


SA  PE  AREA  clause 
SAME  AREA  series 


Data  Division 

File  Section V-10 

The  file  description  entry.  V — 1 1 

The  record  descrintion  entry.  ............  V-10 

The  BLOCK  CONTAINS  clause  V-12 

integer  CHARACTERS 
inteoer  RECORDS 

2.4.2  — 


★Unable  to  READ  variable  length  records  from  a RANDOM  accessed 


★file  which  has  a blocking  factor  areater  than  one.  (RL106  R) 


The  DATA  RECORDS  clause V-13 

data-name 
data-name  series 

The  LABEL  RFCORDS  clause V-14 

STANDARD 

OMITTED 

The  RECORD  CONTAINS  clause V-15 

integer-1  TO  intecer-2  CHARACTERS 

The  VALUE  OF  clause  V-16 

implementor-name  IS  literal 
implementoi — name  IS  literal  series 

Procedure  Division 

The  CLOSE  statement V-17 

WITH  LOCK 
file-name  series 

The  DELETE  statement V-19 
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INVALID  KEY  phrase 

The  OPEN  statement V-20 

INPUT 

OUTPUT 

1-0 

f i le  -name  series 

INPUT#  OUTPUT#  and  1-0  series 


The  READ  statement.  .................  v-23 

INTO  i dent i f ier 
AT  END  phrase 
INVALID  KEY  phrase 

The  REWRITE  statement  ................  V-26 

FROM  i dent i f i e r 
INVALID  KEY  phrase 

The  USE  statement V-30 


EXCEPTION/ERROR  PROCEDURE 
ON  f i le-name 
ON  INPUT 
ON  OUTPUT 
ON  1-0 

The  WRITE  statement V- 32 

F ROM  i den  t i f i e r 
INVALID  KEY  phrase 
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2.5  SEGMENTATION  LEVEL  1 


♦Level  1 of  the  Segmentation  module  is  not  implemented  on  this  system 


Lanquaqe  Concepts 

User-defined  words 
segment-number 


Procedure  Division 

Segment-numbers  ......  

Fixed  segment-number  range  G through  49 
Non-fixed  segment-number  range  50  through  99 
All  sections  with  the  same  s eoment-number  must 
be  together  in  the  source  program 


CCVS74-VSR245 

2.6  LIBRARY  LEVEL  1 


Language  Concepts 

liser-defined  words  1-76 

text-name 

All  divisions 

The  COPY  statement x-2 
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2.7  DEBUG  LEVEL  1 

2.7.1  

♦Level  1 of  the  Debug  module  is  not  implemented  on  this  system. 

Languaqe  Concepts 

Special  registers.  .................  1-50 

DEBUG-1  f EM X I -1 

Environment  Division 

The  SOURCE-COMPUTER  paragraDh 

WITH  DEBUGGING  MODE  clause XI-3 

Procedure  Division 

USE  FOR  DEBUGGING  statement XI-4 

procedure-name 
procedure-name  series 
ALL  PROCEDURES 

Debugging  lines.  ..................  X 1-1 0 
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INTFR-PROGRAM  COMMUNICATIONS  LEVEL  1 


Data  Division 

Linkage  Section 


Procedure  Division 

Procedure  Division  header. 
USING  phrase 

The  CALL  statement  . . . . 
literal 

USING  data-name  series 
The  EXIT  PROGRAM  statement 
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SECTION  3 «.  COMPILER  STATUS 

3.1  Federal  Standard  COBOL 

Section  1.5  explains  the  four  levels  of  Federal  Standard  COBOL  anc  their 
relation  to  American  National  Standard  COBOL.  This  section  lists  the  dis- 
crepancies described  in  Section  2 by  the  Federal  level  in  which  tfe  problem 
occurs.  All  errors  listed  for  a lower  level  are  also  errors  in  ary  higher 
level*  even  though  they  are  listed  only  in  the  lower  level.  The  paragraph 
number  from  Section  2 is  used  to  reference  the  errors  in  each  Federal  level. 

3.1.1  Low  L eve  l 

2.1.1  Addition  of  signed  numeric  data. 

2.1.2  Division  of  siqned  numeric  data. 

2.1.3  Group  level  alphanumeric  MOVE  with  figurative  constants. 

2.1.4  MOVE  of  signed  numeric  data  with  a SEPARATE  clause  to 
alphanumeric  edited  field. 

2.1.5  MOVE  signed  numeric  data  with  SEPARATE  clause  to  signed 
numeric  field. 

2.1.6  MOVE  signed  numeric  data  to  signed  numeric  field  with 
SFPARATF  clause. 

2.1.7  MOVE  signed  numeric  data  with  a SEPARATE  clause  to  an 
alphanumeric  field. 

2.1.8  Multiplication  of  signed  numeric  data. 

2.1.9  Subtraction  of  siqned  numeric  data. 

2.2.1  Subscripted  reference  to  2 and  3 dimensional  tables 
containino  COMPUTATIONAL  and  siqned  numeric  data. 

2.2.2  Initialization  of  SET  UP  BY  and  SET  DOWN  BY  increment 
value  with  positive  signed  numeric  literals. 

2.3.1  No  RERUN  capability  for  sequential  files. 

2.3.2  ASCII  (STANDARD-1)  character  code  set  not  processec  correctly 
for  input  and  output  punched  card  files. 

3.1.2  Low-Intermediate  Level 

2.4.1  No  RERUN  capability  for  relative  files. 

2.4.2  Multiple  record  blocks  for  relative  files  with  variable  length 
records  can  not  be  processed. 

2.5.1  Segmentation  level  1 is  not  implemented. 

2.7.1  Debug  module  level  1 is  not  implemented. 


3.2  American  National  Standard  COBOL 

Full  American  National  Standard  COBOL  consists  of  the  entire  set  of  lanquage 
. elements  defined  in  the  ANSI  COBOL  standard  (refer  to  1.7).  It  is  also  the 
equivalent  of  hiqh  level  Federal  Standard  COBOL  plus  the  Report  Writer 
module.  Therefore*  this  section  lists  only  those  discrepancies  found  while 
. validation  the  Report  Writer  Module. 

Report  writer  module  is  not  implemented. 
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SECTION  4.  SOFTWARE  ENVIRONMENT 

The  compiler  referenced  in  this  document  was  validated  using  the  software 
environment  described  in  this  section.  When  using  a modification  of  the 
described  environment/  the  compiler  may  or  may  not  continue  to  corfcrm  to  the 
Stancard.  It  should  be  noted  that  during  the  validation  process/  an  attempt 
is  made  to  validate  as  many  different  options  as  possible. 

The  use  of  compiler  options*  implementor-names  in  the  Environment  Division 
and  any  form  of  optimization  which  is  not  described  in  this  report  could  cause 
the  compiler  to  produce  a proorair  that  does  not  perform  according  to  the 
specifications  of  Standard  COBOL.  Only  the  environment  describee  in  this 
document  has  been  used  with  this  compiler  to  satisfy  the  requirements  of  FIPS 
PUB  21-1  and  FP*R  101 -32. 1 305 .1  a . (Any  deviations  which  must  be  corrected  as 
per  the  referenced  FPMR  are  described  in  Sections  2 and  3 of  this  report.) 

1.  Options  or  parameters  used  on  the  processor  call  statement  for  the  compiler; 
The  fcllowira  options/parameters  were  used  during  the  validation. 

Options  specified:  APOST 

Options  defaulted:  LIST*  NOMAP*  DECK*  NOSE  Q * NOXRFF*  NODECK*  SUPFRESS 


2.  Environment  Division  imp  l ement or -name s , 


Printer  destined  files 
ACCFSS-NAME  PRINTER 
Tape  files 

ACCESS-NAME  ’FILEfnnn' 

Sequential  "ass-storaoe  tiles 

ACCESS-NAME  * F ILF*nnn* 

Random  Access  files 

ACCESS-NAME  'FILESnnn* 

Switch  names 

SWITCH  A 
SWITCH  % 


Source  Computer  names 


Object  Computer  names 
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3.  Cpt imizat  ion.  The  compiler  may  or  may  not  have  optimization  features. 

If  optimization  is  available  by  option*  it  was  used  during  the  validation 
process  (during  a separate  execution  of  the  Compiler  Validation  System) 
to  determine  if  its  use  causes  the  compiler  to  produce  a program  which 
does  rot  give  the  expected  results.  If  the  optimization  is  invoked  through 
the  compiler  call  statement  then  it  is  mentioned  in  paragraph  1 sieve.  If 
it  is  invoked  through  the  introduction  of  syntax  in  other  than  the  Data 
and  Procedure  Divisions  of  the  source  program  it  is  shown  below.  Optimization 
which  would  require  modification  to  the  Data  and  Procedure  Divisicrs  is  rot 
considered  in  this  report  in  that  it  is  beyond  the  scope  of  the  use  of 
standard  COBOL  and  the  validation  process.  * 

There  is  no  specific  optimization  feature  for  this  compiler. 


4 . Comp i le  r . 


Texas  Instrument  Incorporated*  ASC  COBOL*  Version  5. 22 


5.  Operating  system. 

Texas  Instrument  Incorporated*  System  0S4.C124 
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SECTION  5.  ASCII  VALIDATION 
5.1  Purpose  of  ASCII  Validation 

The  ASCII  Validation  is  performed  by  running  a sequence  of  three  CCVS74 
programs  (SGI  1 8 jr  SQ119,  SQ120)  using  special  procedures.  The  purrcse  of  this 
special  run  is  to  validate  that  the  compiler/operating  system  being  tested 
is  capable  of  processing  ASCII  code  represented  on  magnetic  tape  and 
punched  cards  that  were  produced  (in  accordance  with  the  appropriate  American 
Naticral  Standard)  by  another  system.  There  is  also  a magnetic  tape  and  a card 
file  created  during  the  validation  which  will  be  taken  to  another  system  for 
further  processing.  The  purpose  is  to  determine  whether  the  comp i l e r / ope r a t i no 
system  being  tested  can  also  produce  ASCII  representation  on  magnetic  tape  and 
punched  cards  which  can  be  processed  by  a another  computer  system. 


5.2  Applicable  ANSI  Standards 

The  ASCII  Validation  is  based  on  several  American  National  Standards  and 
presumes  their  support  by  the  compiler/operating  system  being  validated. 

These  are: 

1.  American  National  Standard  Programming  Language  COPCL  X3. 23-1974 

The  CODE-SFT  clause  is  used  to  read  and  write  the  ASCII 
files. 

- The  PROGRAM  COLLATING  SEQUENCE  clause  is  used  to  process  the 
data  in  ASCII  mode  as  well  as  native  mode. 

The  SI GN . . .S EP AR ATE  clause  is  used  for  signed  data  and  all 
data  is  in  the  DISPLAY  (character)  mode. 

2.  American  National  Standard  Code  for  Information  Interchange 
(ASCII)  X3. 4-1968.  (Note  that  this  describes  the  cede#  not  the 
labeling  and  tape  recording  formats.) 

3.  American  National  Standard  Hollerith  Punched  Card  Cede# 

X3. 26-1970. 

4.  American  National  Standard  Naqnetic  Tape  Labels  for  Information 
Interchange#  X3. 27-1969. 

5.  American  National  Standard  Recorded  Magnetic  Tape  fer  Information 
Interchange  (800  CPI#  NZ  R I ) # X3. 22-1067. 

6.  American  National  Standard  Recorded  Magnetic  Tape  fer  Information 
Interchange  (16CC  CPI#  PR)#  X3. 39-1973. 

The  language  of  the  1974  COBOL  Standard  provides  the  capability  to  accept# 
process#  and  produce  ASCII  code.  The  ASCII  Standard  describes  the  code  insofar 
as  the  bit  arrangement  and  conf i nur at  ion # but  does  not  address  recording  tech- 
niques# record  formats  or  any  labeling  scheme.  The  800  CPI#  N7RI  magnetic  tape 
recording  standard  was  used  to  establish  the  recording  density  enc  techniques. 
(160C  CPI#  PE  based  on  X3. 39-1973  "Recorded  Magnetic  Tape  for  Information  Inter- 
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change"  could  be  used  under  special  a r r anqement s . ) The  tape  labeling  scheme 
used  in  these  tests  is  based  on  X3. 27-1969  but  is  also  compatible  with  the 
revision  to  that  tape  label  standard.  Only  the  V0L1/  HDR1/  and  FCF1  labels  are 


used.  The  records  are  fixed  length  and  unblocked. 


5.3  ASCII  Validation  Process 

During  the  validation/  the  Validation  l^anaqer  for  the  Federal  COBOL  Com- 
piler Testing  Service  uses  the  ASCII-encoded  magnetic  tape  and  card  files 
in  addition  to  the  normal  tape  files  associated  with  a validation.  For  the 
ASCII  portion  of  the  validation  the  following  steps  are  performed: 

1.  The  tape  file  and  card  deck  (produced  on  another  computer  system) 
are  used  as  input  to  several  programs  designed  to  validate  whether 
the  system  being  validated  can  accept  and  process  the  data  as 
defined  by  the  respective  standards.  Any  changes  made  during  this 
validation  to  the  source  programs  reading  the  data  ere  noted 
betow  in  5.4.1  . 

2.  A tape  file  and  card  file  are  produced  during  the  validation  which 
should  prove  to  be  identical  to  the  files  described  in  1 above. 
These  two  files  are  then  processed  on  a different  computer  system 
to  determine  the  degree  to  which  the  system  being  validated  sup- 
ports the  ASCII  standard.  Any  changes  made  during  this  validation 
to  the  source  program  producing  the  data  are  noted  below  in  5.4.2. 


5.4  Results  for  This  Validation 

1.  The  Texas  Instruments  ASC  system  processed  the  ANSI  unlabeled 
magnetic  tape  correctly/  but  was  unable  to  properly  read  the 
card  deck.  Only  9 of  the  50  cards  processed  as  ASCII  data. 
However/  when  the  CODE-SET  clause  was  removed  from  the  file 
description  all  data  was  processed  correctly. 

2.  The  Texas  Instruments  ASC  system  was  unable  to  produce  an 
ANSI  punched  card  deck  which  could  be  verified  later  on 
another  system  as  being  correct  in  ANSI  format  and  character 
set.  The  card  deck  contained  only  unintelligible  data. 
However/  on  a second  run  when  the  CODE-SET  clause  was 
removed  from  the  file  description  the  card  deck  was  verified 
to  contain  correct  data. 
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APPENDIX  A 


VALIDATION  SUMMARY  WORKING  DOCUMENT 


A-1  This  appendix  is  a workinq  paper  produced  durinq  the  validation 

and  documents  the  results  of  the  compilation  and  execution  of  each  of  the 
programs  comprising  the  CCVS.  The  results  contained  herein  are  based  on 
the  use  of  the  compiler  within  the  Validation  Environment  identified  in 
this  apperdix.  This  appendix  (Validation  Summary  Workino  Document)  is  not 
part  of  the  official  Validation  Summary  Report  (VSR)  and  is  not  intended 
to  reflect  in  any  way  the  compiler's  usefulness  or  degree  of  conformance 
to  the  languaqe  specifications. 

The  reader  of  this  appendix  should  keep  in  mind  that  the  same  pro- 
blem area  may  appear  in  more  than  one  program#  but  is  considered  only  as  one 
single  discrepancy  and  as  such  is  reflected  only  once  in  the  body  of  the 
VSR.  (The  VSR  will  in  turn  only  reference  the  first  occurrence  of  the 
problem  in  the  appendix.) 

The  reference  documents  for  COBOL  are  American  National  Standard 
Programming  Languaqe  COBOL  ( X 3 . 23-1 974 ) # and  Federal  Standard  COBOL 
(FIPS  PUB  21-1). 


VALIDATION  ENVIRONMENT 

Texas  Instruments#  Incorporated#  ASC  COBOL 
Version  5.22 

Advanced  Scientific  Computer 
System  0S4.024 


i6 

, . 


COMPILER  IDENTIFICATION: 

COMPUTER  SYSTEM: 
OPERATING  SYSTEM; 


DEBUG  MODULE  Level  1 


The  test  set  for  this  module  was  not  run  since  the  standard 
DEBUG  MODULE  has  not  been  implemented  in  this  compiler. 
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iNTEk-PROGRAM  COMMUNICATION  MODULF  Level  i 


IC101  thru  I C 1 1 5 


A.  Compilation 


•jo  errors 


B.  Execution: 


No  failures. 


IC151  thru  I C 1 52 
A . Comp i l at  ion: 

No  errors. 

8 . E xecut ion: 

No  f ai lures  . 


CCVS74-VSR245 


LIBRARY  HODL'LE  Level  1 


LB  1 01  thru  LB107 


A.  Compi l at  ion 


Execut ion 


No  failures 


iMMiliNHMHiHM 


Aji'-nwmiMk 


1 


4 

v I 


NUCLEUS  MODULE  Level  1 
NCI  01  thru  NC102 


A . Compilation: 


No  errors. 


B.  Execution: 


No  f ai lures . 


NC103 


Compi l at  ion  : 


No  errors. 


Ex e cut  ion 
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IF--TEST-96  failed  when  the  following  two  alphanumeric  grcup 
level  data  items  did  not  compare  equal. 


02  GR0UP-X1 000. 

03  FILLER  PIC  X (500)  VALUE  ZERO. 

03  XNAKE  PICTURE  X(100)  VALUE  QUOTE. 

03  FILLER  PICTURE  XC399)  VALUE  SPACE. 

03  FILLER  PICTURE  X VALUE  . 

02  GROUP- X500-2 . 

03  GR0UP-X  500  PICTURE  X(5C0)  VALUE  ZERO. 
03  GR0UP-X5O0-1 . 

04  FILLER  PICTURE  X(50>  VALUE  QUOTE. 
04  FILLER  PICTURE  X(50>  VALUE  QUOTE. 
04  FILLER  PICTURE  X(39S)  VALUE  SPACE. 
04  FILLFR  PICTURE  XX  VALUE  ' . " . 


NC104  thru  NC113 
A.  Compilation: 


No  errors. 


B . Execut ion: 


No  failures. 


NC  1 1 4 


A . Compilation: 


No  errors. 
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B. 

Execution: 

MOVE-TEST-17  failed  to  properly  move  a signed  numeric  data  item 
with  a SEPARATE  clause  to  an  alphanumeric  edited  data  item  containing 
the  B and  / editing  symbols.  Refer  to  5.15  (4)a*  page  11-75. 

N Cl  1 5 

A . 

Compilation: 

No  errors. 

B. 

Exe  cut  ion  : 

No  f ai  lures  . 

NC116 

A. 

Comp  il at  ion: 

No  errors. 

B. 

Execut ion : 

1 

1)  MOVE-TEST-04.02  and  r*0VE-TEST-04.04  failed  when  the  move  of  a 
signed  numeric  data  item  with  a SEPARATE  clause  to  a signed 
numeric  data  item  without  a SEPARATE  clause  caused  the  sign 
to  overlay  the  rightmost  digit. 

Computed  Data 

Correct  Data 

MOVE -TEST-04. 02  000000000000009129 

MOVE -TEST-04 .04  000000000000080  368 

♦91275 

♦80361 

2)  MOV E-TEST-05. 02  and  MOVE-TEST-05 .04  failed  when 
a siqned  numeric  data  item  without  the  SEPARATE 
signed  numeric  data  item  with  a SEPARATE  clause 
sign  to  overlay  the  rightmost  digit  in  addition 
placement  of  the  respective  LEADING  and  TRAILING 

the  move  of 
clause  to  a 
causec  the 
to  the  correct 
s iqns . 

Comput  ed  Data 

Correct  Data 

i 

MOVE-TEST-05.02  -362J- 

M0VE-TEST-05.04  0362J- 

-03621 

03621- 

1 

3)  MCVE-TEST-06.02  failed  when  the  move  of  a sioned  numeric  data 
item  with  a SEPARATF  clause  to  an  alphanumeric  data  item  caused 
the  sign  to  be  moved.  Refer  to  5.15.4(4)a.r  page  11-75. 

Computed  Data 

Correct  Data 

. 
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PCVE-TFS  T-fy6 .02 


8036 


8C  36 


NC1 1 ? 


A.  Compilation 


Execut ion 


DIV-TEST-30  and  DIV-TEST-40  failed  when  the  division  of 
signed  numeric  data  items  containing  the  "P"  and  "V" 
symbols  failed  to  give  the  correct  result  to  a signed 
numeric  data  item  containing  a SEPARATE  clause. 


Cuif.Huted  Oat  a 


Correct  Data 


DIV-teST-30 

DIV-TFST-40 


000000000000000001 

000000000000000001 


000000000000000010 

OOOOOOOOOOCCCCOOIO 


NCI  1 8 


A.  Compilation 


Execution 


ADD-TEST-12*  13*  15*  17*  34*  43*  and  45  failed  to  produce  the 
correct  results.  All  these  tests  involve  the  use  of  sigred  numeric 
data  items  defined  with  and  without  the  SI6N  and  SFPARATe  clauses. 


C omput  ed  Data 


Correct  Data 


ADD-TEST-12 
ADD-TFST-13 
ADD -TEST-15 
AD0-TEST-1  7 
ADD-TE  ST-34 
ADD-TEST-43 
ADD-TEST-45 


0000000000000001122 
COOOOOOOOCOOCOCI 1 23 
000044777.777443+00 
000333333.000000000 
00000000000000000 
ooooooooooocoooooo 

6666674444444444446 


000000001111122222 
0000000011 11122233 
000344777.777443000 
000333334. 00CGC0000 
222222222222222222 
222222222222222222 
666667444444444443 


NC119 


A . Compilation 


No  errors 


R.  Execution 


SUB-TEST-12  failed  when  the  subtraction  of  various  signed  numeric 


CCVS74-VSR245 


data  items  with  and  without  SIGN  and  SEPARATE  clauses  die  not  give 
* *»  e correct  result  to  a signed  numeric  data  item  with  SIGN  and 
SEPARATE  clauses. 

Computed  Data  Correct  Data 

SUB-TEST-12  -000044777.777443-00  -00344777.777443000 

NC12C 

A.  Compilation: 

No  errors  . 

B.  Execution: 

NPY-TEST-12  failed  when  the  multiplication  of  two  signed  numeric 
data  items  did  not  give  the  correct  result  to  a signed  numeric  data 
item.  Only  one  of  the  multiplicands  contains  SIGN  IS  SEPARATE 
c l auses . 

Computed  Data  Correct  Data 

MPY-TEST-12  000000000000001555  0000000000C000 1 1 1 

NC151  thru  NC153 

A . Compi l at  ion  : 

No  errors. 

B.  Execution: 

No  failures. 

N C 1 5 4 

A.  Compilation: 

No  errors. 

B . Execution: 

Same  as  NC103 

. NCI  55  thru  NC165 

A.  Compilation: 

No  errors. 
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NUCLEUS  MODULE  Level  2 
NC201 

A . Comp i l at  ion : 

No  errors. 

B.  Execution: 

'*c  f ai  lures  . 

J 

I 

| 

NC202 

A.  Compilation: 

No  errors . 

6.  Execut ion: 

1)  ADD-TFST-11  and  SUB-TEST-14  failed  to  ADD/SURTRACT 
CORRESPONDING  a series  of  signed  numeric  data  items 
TO/FROM  a series  of  unsigned  numeric  data  items.  Ore 
of  the  unsigned  numeric  data  items  contained  the  "F" 
symbol  . 

Computed  Data  Correct  Data 


ADD-TEST-11  11223344066677889900  1 1223344606677889900 

SUB-TEST-14  11223344053477889900  11223344606677889900 


2)  SU8-TEST-4  which  subtracts  a sioned  numeric  data  item  and  a 
negative  numeric  literal  from  a series  of  three  signed 
numeric  data  items  failed  to  produce  the  correct  restlts 
ir  one  of  the  receiving  operands. 

Computed  Data  Correct  Data 


SUB-TFST-4  000000000.000000000  C00000099 . 000000000 

As  a result  of  the  failure  in  SUB-TEST-4  the  ON  SIZE  ERROR  did 
not  OCCUR  and  therefore  SUB-TEST-7  also  failed. 


NC203 

A . Comp i l at  ion: 

1)  The  compiler  correctly  inserted  the  compile  date  in  the 
DATE-COMPILE D paragraph  but  failed  to  replace  the  entire 
DATE-COMPILED  paragraph  with  the  current  date. 
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2)  The  compiler  flagged  the  data-name  assionments  of 
SUB-GRP-FOR-RENAMES-1  and  NAKE-2  with  the  following 
message  : 

RENAMES  REFERENCE  SUBORDINATE  TO  OTHER  ITEM. 

ASSUME  RENAMFS  SINGLE  ITEM: 

3)  The  following  DIVIDE  statement  caused  the  compiler 
to  abort  . 

DIVIDE  D I V 1 9 INTO  0IV20  GIVING  DIV21  ROUNDED 
REMAINDER  DIV22. 

B.  Execution: 

No  execution  due  to  compiler  abort  indicated  by  A. 3 above. 

NC204  thru  NC208 

A . Compi l at  ion: 

No  errors. 

B.  Execution: 

No  failures. 

NC209 

A . Compilation 

1)  The  compiler  flagged  the  data-name  assignment  of  AL  with 
the  following  message: 

RENAMES  REFERENCE  SUBORDINATE  TO  OTHER  ITEM.  ASSUME 
RENAMFS  SINGLE  ITEM: 

2)  The  following  MOVE  statement  caused  the  compiler  to  abort: 
MOVE  CORRESPONDING  C-LEVEL  IN  A-LEVEL  TO  C-FLOCK  (4). 

B . Ex  ecut ion: 

No  execution  due  to  compiler  abort  indicated  by  A. 2 above. 

. NC21G  thru  NC218 
A.  Compi l at  ion  : 

No  errors. 
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RELATIVE  1-0  MODULE  Level  1 


RL101  thru  RL105 


A.  Compi l at  ion 


B . Ex  e cut  ion 


No  f ai lures 


R LI  06 


A . Compi l at  ion 


B.  Execution 


REL-TEST-18  was  unable  to  read  the  12th  variable  length 
record  from  a randomly  accessed  file  which  is  blocked  three 
records  to  a block.  The  INVALID  KEY  condition  was  taken.  When 
the  blocking  factor  was  changed  to  one*  REL-TEST-18  passed. 


R Li  07  thru  RL108 


A . Comp i lat ion 


errors 


B.  Execut ion 


No  failures 


R Li  09 


A.  Compi lat  ion 


No  errors 


B.  F xecut ion 


1)  No  execution  failures 


2)  Lnable  to  force  RERUN  of  RL1C9  due  to  lack  of  checkpoint 
capability  within  operating  system. 


R L 1 5 1 thru  RL153 
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A.  Comp i l at  ion ; 
No  errors: 

B.  Execution: 
No  failures. 
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SEGMENTATION  MODULE  Level  1 
SGI  01  thru  SG103 

The  test  for  this  module  was  not  run  since  the  standard  SEGMENTATION 
MODULE  has  not  been  implemented  in  this  compiler. 


f 

£ 
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SEQUENTIAL  1-0  MODULE  Level  1 


SOIOI  thru  SQ112 


A.  Compilation: 


No  errors. 


B.  Execution: 


No  failures. 


SQ 1 1 3 


Comp  i l at  ion  : 


No  errors. 


Execution: 


1>  *o  execution  failures. 


) Inable  to  force  RERUN  of  SQ113  due  to  lack  of  checkpoint 
capability  within  operating  system. 


SOI 1 4 thru  SQ117 


A.  Coepilation: 


No  errors. 


B . E xecut  ion: 


No  f ai  lures  . 


S011£ 


Comp  i l at  ion  : 


No  errors. 


Ex  e cut  ion : 


The  card  file  created  in  SQ118  failed  to  punch  the  required 
ASCII  character  data  in  the  card.  When  the  card  file  was 
verified  by  FCCTS  on  another  computer  system  all  data  printed 
as  meaningless  information.  However#  when  the  prooram  was 
rerun  without  the  CODE-SET  clause  in  the  FD  of  the  card  file# 
all  data  was  created  properly. 
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SQ119 

A.  Compi  lat  ion: 
No  errors. 


B.  Execution: 


The  punched  card  file  provided  by  FCCTS  failed  to  be  processed  as 
ASCII  character  data.  41  of  the  5C  record  comparisons  failed. 
However#  when  the  program  was  rerun  without  the  CODE-SET  clause 
in  the  FD  of  the  card  file#  all  data  was  processed  correctly. 

Computed  Data  Correct  Data 


aaaaaa 

LLLLLL 


NNNNNN 
k k k k k k 


(<(((( 

)))))) 

****** 

+ + + + + + 
////// 


KKKKKK 

aaaaaa 

pppppp 

oqqqoq 

rrrrrr 

ssssss 

tttttt 

uuuuuu 

WWW 

wwwww  w 

XXX  XX  X 

yyyyyy 

LLLLLL 


iiiiii 

000000 

111111 

222222 

333373 

444444 

S55555 

666666 

777777 

099999 


<<<<<< 


nnnnnn 

AAAAAA 

BBBBBB 

CCCCCC 

DDDDDD 

FEEEEE 

FFFFFF 

gggggg 

HHHHHM 

iiiiii 

GQQQGQ 

RRRRRR 

SSSSSS 

TTTTTT 

UUUUUU 

WWW 

uwuuww 


>>>>>> 
AAAAAA 
BBBBBB 
CCCCCC 
DDDDDD 
EEEEEE 
FFFFFF 
GGGGGG 
HHHHHH 
IIIIII 
JJJ JJJ 
r Krirrioc 
LLLLLL 

NNNNNN 

ooooco 

pppppp 
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xxxxxx 

QQQQGQ 

YYYYY Y 

RRRRRR 

bbbbLb 

SSSSSS 

c cc  cc  c 

TTTTTT 

dddddd 

UUUUUU 

eeeeee 

WWW 

f ff ff f 

WWWWWW 

nqqqqq 

XXXXXX 

hhhhhh 

YYYYYY 

nnii 

7ZZZ7Z 

A . Comp i l at  ion  : 
No  errors. 

B.  Execution: 
Sate  as  SU119 

SOI  2 1 

A.  Compilation: 
No  errors. 

B.  Execut ion: 

No  f ai lures  . 

SQ151  thru  S0 1 53 

A.  Compilation: 
No  errors. 

B.  Execut ion : 

No  failures. 
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TABLE  HANDLING  MODULE  Level  1 


TH101  thru  TH108 


A.  Compilation 


B.  Execution 


No  f ai  lu  res 


T HI  09 


A . Comp  i l at  ion 


B.  Execution 


SE F - TE ST-002 . 50 / 3.50/  5.01  through  5.10/  6.01  through  6.C7/  and 
7.02  through  7.07  all  failed  to  correctly  reference  data  from 
signed  two  and  three  dimensional  tables. 


TH11C 


A.  Compilation 


No  errors 


B.  Execution 


TH111 


Compi l at  ion 


B.  Execution 


SE  T- TE S T -003 .01  through  C03.04  and  SET-TEST-004 .01  thrcuch  004.04 
all  failed  to  correctly  SET  an  index-name  UfJ  BY  or  DOWN  EY  a signed 
numeric  data  item.  In  each  case  a positive  signed  njmeric  literal 
is  used  to  initialize  the  i'ncrement  value. 


TH151  thru  TH152 


Compilation 
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TABLE  HANDLING  MODULE  Level  2 
TH201  thru  TH220 

A.  Comp i l at  ion : 

No  errors. 

B.  Execution: 

No  failures. 


